home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / rexx / rxcmanager.lha / rxcmanager / examples / get.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-15  |  341 b   |  24 lines
  1. /* */
  2.  
  3. if ~show("L","rxcmanager.library") then
  4.     if ~addlib("rxcmanager.library",0,-30) then do
  5.         say "no rxcmanager.library"
  6.         exit
  7.     end
  8.  
  9. call CMStart()
  10. num = CMGetEntry("ALL MULTISELECT","U")
  11. call CMClose()
  12.  
  13. if num=0 then do
  14.     say "No user entry selected"
  15.     exit
  16. end
  17.  
  18. say "Selected:" num
  19. do i=0 to num-1
  20.     say
  21.     say "Name:  " u.i.Name
  22.     say
  23. end
  24.